Die Speccy' 97/Die Speccy' 97.iso/amiga_system/the_aminet/util/dir/browserii.lha/BrowserII_v3_09/BrowserII.menu

Text File | 1995-09-25 | 24KB | 364 lines

CMDWIN "CON:0/10/640/246/Your command.../AUTO/CLOSE/WAIT""
SHELLWIN "CON:0/11/640/100/BrowserII Shell/AUTO/CLOSE/WAIT"
SHORTCUTQUAL ""

#AUTOCMD "Unknown" RUN SYS:Utilities/AZap []
AUTOCMD "Source C" RUN SYS:Utilities/Ed []
AUTOCMD "Src CXX" RUN SYS:Utilities/Ed []
AUTOCMD "Include C" RUN SYS:Utilities/Ed []
AUTOCMD "Asm" RUN SYS:Utilities/Ed []
AUTOCMD "MakeFile" RUN SYS:Utilities/Ed []
AUTOCMD "Guide" RUN SYS:Utilities/MultiView [] PUBSCREEN="swMultiView" FONTNAME XHelvetica FONTSIZE 11
AUTOCMD "PP Doc" RUN SYS:Utilities/More []
AUTOCMD "Doc" RUN SYS:Utilities/More []
#AUTOCMD "Text" RUN SYS:Utilities/More []
#AUTOCMD "ILBM" RUN SYS:Utilities/MultiView [] SCREEN
AUTOCMD "ILBM" RUN SYS:Utilities/ViewTek POINTER []
#AUTOCMD "ILBM24" RUN SYS:Utilities/ViewTek POINTER HIRES LACE []
AUTOCMD "ILBM24" RUN PRG:Pix/CyberView [] CENTER
AUTOCMD "PCX" RUN SYS:Utilities/MultiView [] SCREEN
#AUTOCMD "GIF" RUN SYS:Utilities/ViewTek POINTER []
AUTOCMD "GIF" RUN PRG:Pix/CyberView [] CENTER WITDH 800 HEIGHT 600
#AUTOCMD "JPEG" RUN SYS:Utilities/ViewTek POINTER []
#AUTOCMD "JPEG" RUN PRG:Pix/FastJPEG [] Pointer ScreenMode="0x89024"
AUTOCMD "JPEG" RUN PRG:Pix/CyberView [] CENTER
AUTOCMD "BMP" RUN SYS:Utilities/ViewTek [] SCREEN
AUTOCMD "BMP 1Bit" RUN SYS:Utilities/ViewTek [] SCREEN
AUTOCMD "BMP 4Bit" RUN SYS:Utilities/ViewTek [] SCREEN
AUTOCMD "BMP 8Bit" RUN SYS:Utilities/ViewTek [] SCREEN
AUTOCMD "Glimps" RUN SYS:Utilities/MultiView [] PUBSCREEN=$BrowserIIScreenName
AUTOCMD "ANIM" RUN PRI 4 SYS:Utilities/ViewTek [] POINTER
AUTOCMD "8SVX" RUN C:OPlay -b 50000 -s 0 []
AUTOCMD "ADPCM" SHELL WIN "CON:0/11/440/40/Playing..." PRG:Sound/PlayADPCM [:] FILTER
AUTOCMD "MEd Mod" RUN Rx Rexx:PlayMod.rexx [:]
AUTOCMD "PP MEdMOD" RUN Rx Rexx:PlayMod.rexx [:]
AUTOCMD "ST Mod" RUN Rx Rexx:PlayMod.rexx [:]
AUTOCMD "xPK Mod" RUN Rx Rexx:PlayMod.rexx [:]
AUTOCMD "xPK SQSH" RUN Rx Rexx:PlayMod.rexx [:]
AUTOCMD ".Mod" RUN Rx Rexx:PlayMod.rexx [:]
AUTOCMD "S3M" RUN Rx Rexx:PlayMod.rexx [:]
AUTOCMD "TFMX Trck" RUN Rx Rexx:PlayMod.rexx [:]
AUTOCMD "Fred" RUN Rx Rexx:PlayMod.rexx [:]
AUTOCMD "PP ST Mod" RUN Rx Rexx:PlayMod.rexx [:]
AUTOCMD "LHArc MOD" RUN Rx Rexx:PlayMod.rexx [:]
AUTOCMD "Wave" RUN C:OPlay -b 50000 -s 0 []
#AUTOCMD "LHArc" WBTF SHELL WIN "CON:/15/640/200/LhArc...(list)/CLOSE/WAIT" $LhArc $LHAOpts v []
#AUTOCMD "Library" WBTF SHELL Version []
AUTOCMD "Icon" WITHSUBTYPES WBTF RUN SYS:Utilities/ShowI []
#AUTOCMD "DMS" WITHSUBTYPES WBTF RUN PRG:Utils/Arc/DMSWIN
AUTOCMD "DMS" WITHSUBTYPES RUN Assign >NIL: DM0: EXISTS;IF WARN;Mount DM0:;EndIf;Set N [:];PRG:Utils/Arc/DMSDiskChange 0 $N;BD SCANDEVS
AUTOCMD "Install" WBTF WB PRG:Utils/Installer
AUTOCMD "MPEG" SHELL STACK 8192 WIN "CON:0/11/340/150/MPEG.../" PRI 4 Echo "Hit ^C to stop";PRG:Pix/MPEG_Play -loop []
AUTOCMD "AVI" RUN STACK 20000 PRG:Pix/XAnim +CF4 +Ae []
AUTOCMD "FLI" RUN PRG:Pix/Flip [] DISK
AUTOCMD "FLC" RUN PRG:Pix/Flip [] DISK
AUTOCMD "ScrLnk" RUN Execute []
AUTOCMD "ReadMe" RUN SYS:Utilities/More []

COLOR 0
MENU "Txt"
    ITEM {Y} "Ced" RUN SYS:Utilities/Ed []
    ITEM "Edge" RUN Rx Rexx:Ed.rexx [:]
    ITEM "PPCed" RUN Decrunch [] TO T:Text;Run SYS:Utilities/Ed T:Text
    ITEM {W} "Most" WB SYS:Utilities/More []

MENU "Pix"
    ITEM {J} "CyberView" RUN PRG:Pix/CyberView [] CENTER
    ITEM "CyberView" KEY "shift j" KEYTEXT "S-j" RUN PRG:Pix/CyberView [] WIDTH 1024 HEIGHT 768 CENTER
    ITEM "CyberWindow" RUN PRG:Pix/CyberWindow [] PROGRESS
    ITEM {H} "CyberWindow" RUN PRG:Pix/CyberWindow [] PROGRESS PUBSCREEN=TrueColor
    ITEM {K} "ViewTek" RUN SYS:Utilities/ViewTek POINTER []
    ITEM "ViewTek ?" RUN Execute S:Macro/HowView [] ScreenName $BrowserIIScreenName
    ITEM {X} "MultiView" RUN SYS:Utilities/MultiView [] SCREEN
    ITEM "MultiView" KEY "shift x" KEYTEXT "S-x" WBTF RUN SYS:Utilities/MultiView []
    ITEM "MultiView" KEY "alt x" KEYTEXT "L-x" RUN SYS:Utilities/MultiView [] PUBSCREEN="swMultiView" FONTNAME XHelvetica FONTSIZE 11
    SUBMENU "Alt"
        ITEM "WorkView" WBTF RUN STACK 50000 PRG:Pix/Rend24 -d []
        ITEM "FastJPEG" RUN PRG:Pix/FastJPEG [] Pointer ScreenMode="0x89024"
        ITEM "FastJPEG" RUN PRG:Pix/FastJPEG [] GREY Pointer ScreenMode="0x89024"
        ITEM "FastView" RUN PRG:Pix/FastView [] INFO POINTER
        ITEM "FastView" RUN PRG:Pix/FastView [] DITHER SCALE INFO POINTER
    ENDSUBMENU
    ITEM "ViewANIM" WB PRI 4 PRG:Pix/Utils/View []
    ITEM "DPPlayer" WB PRI 4 PRG:Pix/DPaint/Player []
    ITEM "MPEG" SHELL STACK 8192 WIN "CON:0/11/340/150/MPEG.../" PRI 4 Echo "Hit ^C to stop";PRG:Pix/MPEG_Play -loop []
    ITEM "MPEG slow" RUN PRI 4 Run Copy [] PIPE:MPEGFile/10000/10000;ChangeTaskPri 3;PRG:Pix/MPEG_Play PIPE:MPEGFile/10000
    SUBMENU "MPEG"
        ITEM "MPEG HAM6" SHELL STACK 8192 WIN "CON:0/11/340/150/MPEG.../" PRI 4 Echo "Hit ^C to stop";PRG:Pix/MP -loop -dither ham6 []
        ITEM "MPEG HAM8" SHELL STACK 8192 WIN "CON:0/11/340/150/MPEG.../" PRI 4 Echo "Hit ^C to stop";PRG:Pix/MP -loop -dither ham8 []
        ITEM "MPEG Gray8" SHELL STACK 8192 WIN "CON:0/11/340/150/MPEG.../" PRI 4 Echo "Hit ^C to stop";PRG:Pix/MP -loop -dither gray8 []
        ITEM "MPEG Gray4" SHELL STACK 8192 WIN "CON:0/11/340/150/MPEG.../" PRI 4 Echo "Hit ^C to stop";PRG:Pix/MP -loop -dither gray []
        ITEM "MPEG 2x2" SHELL STACK 8192 WIN "CON:0/11/340/150/MPEG.../" PRI 4 Echo "Hit ^C to stop";PRG:Pix/MP -loop -dither 2x2 []
        ITEM "MPEG fs2fast" SHELL STACK 8192 WIN "CON:0/11/340/150/MPEG.../" PRI 4 Echo "Hit ^C to stop";PRG:Pix/MP -loop -dither fs2fast []
        ITEM "MPEG mbordered" SHELL STACK 8192 WIN "CON:0/11/340/150/MPEG.../" PRI 4 Echo "Hit ^C to stop";PRG:Pix/MP -loop -dither mbordered []
        ITEM "MPEG color" SHELL STACK 8192 WIN "CON:0/11/340/150/MPEG.../" PRI 4 Echo "Hit ^C to stop";PRG:Pix/MP -loop -dither color []
    ENDSUBMENU
#    ITEM "DPaint" WB PRG:Pix/DPaint/DPaint []
    ITEM "DPaint" RUN Rx Rexx:DPaint.rexx [:]
    ITEM "ImageFx" KEY "shift f" KEYTEXT "S-f" RUN Rx ImageFX:Rexx/LoadImage.ifx [:]
    ITEM "ADPro" KEY "shift a" KEYTEXT "S-a" RUN Rx Rexx:View.adpro [:]
    ITEM {G} "GlimpsIt" SHELL STACK 8192 WIN "CON:0/11/340/150/Glimpsing.../SCREEN ADPro" For [] ShowFileType FullPathArgs DO Rx PRG:Pix/GlimpsPic/GlimpsIt.adpro "%%"
    ITEM "GlimpsIt (IFX)" SHELL STACK 8192 WIN "CON:700/11/340/150/Glimpsing.../SCREEN IMAGEFX_SCREEN" For [] ShowFileType FullPathArgs DO Rx PRG:Pix/GlimpsPic/GlimpsIt.rexx.ifx "%%" IconWidth=60
    SUBMENU "Glimps"
        ITEM "KeepCurrent" SHELL STACK 8192 WIN "CON:0/11/340/150/Glimpsing.../SCREEN ADPro" For [] ShowFileType FullPathArgs DO Rx PRG:Pix/GlimpsPic/GlimpsIt.adpro "%%" KeepCurrent
        ITEM "KeepLoaded" SHELL WIN "CON:0/11/340/150/Glimpsing.../SCREEN ADPro" Rx PRG:Pix/GlimpsPic/GlimpsIt.adpro [:] KeepLoaded
        ITEM "UseCurrent" KEY "shift g" KEYTEXT "S-G" SHELL WIN "CON:0/11/340/150/Glimpsing.../SCREEN ADPro" Rx PRG:Pix/GlimpsPic/GlimpsIt.adpro [:] UseCurrent KeepCurrent
        ITEM "*.glimps" SHELL STACK 8192 WIN "CON:0/11/340/150/Glimpsing.../SCREEN ADPro" For #?.glimps ShowFileType FullPathArgs DO Rx PRG:Pix/GlimpsPic/GlimpsIt.adpro "%%" KeepCurrent
        ITEM "Pic *" SHELL STACK 8192 WIN "CON:0/11/340/150/Glimpsing.../SCREEN ADPro" For ~(#?.(glimps|info)) ShowFileType FullPathArgs DO Rx PRG:Pix/GlimpsPic/GlimpsIt.adpro "%%" KeepCurrent
        ITEM "Vapor" SHELL STACK 8192 WIN "CON:0/11/340/150/Glimpsing.../SCREEN ADPro" For [] ShowFileType FullPathArgs DO Rx PRG:Pix/GlimpsPic/GlimpsIt.adpro "%%" Vapor
        ITEM "Width 32" SHELL STACK 8192 WIN "CON:0/11/340/150/Glimpsing.../SCREEN ADPro" For [] ShowFileType FullPathArgs DO Rx PRG:Pix/GlimpsPic/GlimpsIt.adpro "%%" IconWidth=32
        BARLABEL
        #ITEM "PctIcon" WB PRG:Pix/PictIcon/PictIcon
        ITEM "PctIcon" SHELL PRI -1 WIN "CON:0/11/340/150/Glimpsing..." PRG:Pix/PictIcon/PictIcon [] MaxIWitdh=80 CENTERFreeIconPos Chunky NoWhatis NewIcon POPULARITY
        ITEM "PctIcon *" SHELL PRI -1 WIN "CON:0/11/340/150/Glimpsing..." PRG:Pix/PictIcon/PictIcon ~(*.(info|glimps)) MaxIWitdh=80 CENTERFreeIconPos Chunky NoWhatis NewIcon POPULARITY
    ENDSUBMENU
    ITEM "Info" SHELL WIN "CON:0/11/640/100/Image Info:/AUTO/CLOSE/WAIT/SCREEN $BrowserIIScreenName" SYS:Utilities/Viewtek []
    ITEM "Make Cat" WBTF RUN Rx PRG:Pix/CatMake.rexx Dir [:]
    ITEM "Show JPEG Comment" SHELL WIN "CON:////Show JPEG Comment/AUTO/CLOSE/WAIT/SCREEN $BrowserIIScreenName" PRG:Pix/JPEG/ReadJPEGComment [];Echo "---- End ----"
    ITEM "Set JPEG Comment" SHELL WIN "CON:////Set JPEG Comment/AUTO/CLOSE/WAIT/SCREEN $BrowserIIScreenName" Set N [:];Echo "Type comment, terminate by ^\\";Echo "Temporary file is $N.$process";PRG:Pix/JPEG/WriteJPEGComment "$N" "$N.$process";Delete "$N";Rename "$N.$process" "$N"
    SUBMENU "Icon"
        ITEM "ShowIcon" KEY "shift i" KEYTEXT "S-I" WBTF RUN SYS:Utilities/ShowI []
        ITEM "Show Bruch Icon" KEY "alt i" KEYTEXT "Alt-I" SHELL set echo on; copy [] T:NIB$Process_.info;PRG:Pix/NewIcon/NewIconToBrush FROM T:NIB$Process_.info DestPath T:;ViewTek T:NIB$Process_U.iff;Delete T:NIB$Process_#?
        ITEM "Put brush" SHELL PRG:Pix/NewIcon/InjectBrush [] FORCE
        ITEM "To 3Bit" RUN PRG:Pix/DoIcon [] STRIPDEPTH 3
        ITEM "* To 3Bit" RUN For *.info DO PRG:Pix/DoIcon %% STRIPDEPTH 3
        ITEM "To 8Bit" RUN PRG:Pix/DoIcon [] DEPTHTO8
        ITEM "To Project" RUN PRG:Pix/DoIcon [] NewType=Project
        ITEM "To Tool" RUN PRG:Pix/DoIcon [] NewType=Tool
        ITEM "3bit To NI dot" RUN PRG:Pix/NewIcon/mwb2ni [] DOT
        ITEM "8bit To NI dot" RUN PRG:Pix/NewIcon/mwb2ni [] OFFSET=254 DOT
    ENDSUBMENU
    ITEM "To GIF" SHELL STACK 8192 WIN "CON:0/11/340/150/Glimpsing.../SCREEN ADPro" For [] Deep=1 ShowFileType FullPathArgs DO Rx ADProScripts:ToGIF.adpro "%%"
    ITEM "Flip" SHELL PRG:Pix/Flip []
    ITEM "Flip DISK 25" SHELL PRG:Pix/Flip [] DISK FPS 25
    SUBMENU "XAnim"
        ITEM "CF4" SHELL STACK 25000 PRG:Pix/XAnim +Cs10 +CF4 +v []
        ITEM "CF4 NoSound" SHELL STACK 25000 PRG:Pix/XAnim +CF4 +v -Ae []
        ITEM "CF4 disk" SHELL STACK 25000 PRG:Pix/XAnim +Cs10 +CF4 +f +v []
        ITEM "CF4 NoSound disk" SHELL STACK 25000 PRG:Pix/XAnim +Cs10 +CF4 +f +v -Ae []
        ITEM "Gray" SHELL STACK 25000 PRG:Pix/XAnim +Cg +v []
        ITEM "Gray NoSound disk " SHELL STACK 25000 PRG:Pix/XAnim +Cg +v -Ae +f []
    ENDSUBMENU
    ITEM "GIF2PNG" SHELL PRI -1 PRG:Pix/Gif2PNG [];BD RESCAN

MENU "Snd"
    ITEM Play RUN C:PlayOnDisk []
    ITEM Play8SVX RUN C:Play8SVX []
    ITEM {&} OmniPlay RUN C:OPlay -b 50000 -s 0 []
    ITEM "Play Mod" RUN Rx Rexx:PlayMod.rexx [:]
    ITEM {S} DeliTracker RUN Rx Rexx:PlayMod.rexx [:]
#    ITEM DeliTracker RUN Sys:Utilities/DeliTracker/DeliTracker MODULE [] PLAYING YES
    ITEM "Play ADPCM" SHELL WIN "CON:0/11/440/40/Playing..." PRG:Sound/PlayADPCM [:] FILTER

MENU "File"
    ITEM {`} "Clip Selection" RUN MagicClip []
    ITEM "Clip Sel path" KEY "shift `" KEYTEXT "S-`" RUN MagicClip PUT [:]
    ITEM "Clip Comment" RUN MagicClip PUT `List [:] LFORMAT "%c"`
    ITEM "Clip Contents" RUN MagicClip FILE []
    ITEM "AZap" RUN SYS:Utilities/AZap []
    ITEM "FileX" RUN PRG:Utils/FileX []
    ITEM "ChunkIt" WBTF WB PRG:FileDisk/ChunkIt []
    ITEM "FileFind" SHELL Set N `RequestFile Title "Enter Object to search" REJECTPATTERN #?`;FileFind $N
    ITEM "Asc" WBTF SHELL WIN "CON:0/10/640/246/AscDumping.../CLOSE/WAIT" Asc []
    ITEM "AscII" WBTF SHELL WIN "CON:0/10/640/246/AscDumping.../CLOSE/WAIT" String []
    ITEM "HType" WBTF SHELL WIN "CON:0/10/640/246/Hex Dumping.../CLOSE/WAIT" Type [] opt H
    ITEM "Sizer" WBTF SHELL WIN "CON:0/10/640/246/Size:/CLOSE/WAIT" C:Sizer []
    ITEM "Blocks" WBTF WB C:Blocks
    ITEM "Cmp" WBTF SHELL Cmp [] ALL;Echo "Compare finished."
    SUBMENU "Crunch"
        ITEM PPCrunchExe SHELL Rx Rexx:PPCrunchExe.pprx []
        ITEM PPCrunch WBTF SHELL Crunch EFFICIENCY 5 [] NOLED
        ITEM "PPCrunch *" WBTF SHELL Crunch EFFICIENCY 5 #? NOLED
        ITEM PPDeCrunch WBTF SHELL DeCrunch []
        ITEM FImp WBTF SHELL FImp [] MODE11 VERBOSE
        ITEM "FImp *" SHELL FImp #? MODE11 VERBOSE
    ENDSUBMENU
    ITEM "Version" WBTF SHELL Version [] FILE FULL
    ITEM "FullDir dir" RUN Set lDir [];Set blDir `BaseName $lDir`;Ls >>Ram:$blDir.Dir -a -l -c -T -R $blDir;BD RAM: RESCAN
    ITEM "FullDir" RUN Ls >>Ram:.Dir -a -l -c -T -R [];BD RAM: RESCAN
    ITEM ReMap WBTF SHELL SYS:Tools/MapIcon
    ITEM Verify WBTF SHELL ArpCopy ~(...Dead|BadTrack|bad.blocks) NIL: ALL
    ITEM "Installer" WBTF WB PRG:Utils/Installer []
    ITEM "ILBM2Icon" WBTF SHELL Set File [];PRG:Utils/ZapIcon $File $File
    ITEM "TexInfo2AG" SHELL PRG:Utils/MakeInfo --amiga []
    SUBMENU "UU"
        ITEM "Encode" WBTF SHELL Set File [];Set BN `BaseName $File`;Set DestDir "`Cd`";Set DestFile `TackOn PATH "$DestDir" FILE "$BN"`;PRG:Utils/s_encode -e "$File" "$DestFile.uu";BD RESCAN
        ITEM "Decode" WBTF SHELL PRG:Utils/s_encode -df [];BD RESCAN

    ENDSUBMENU

MENU "CLI/Sys"
    ITEM {.} CD RUN Assign CD: ""
    ITEM Shell WBTF RUN NewShell "CON:0/14/640/100/Amiga Shell/AUTO/CLOSE"
    ITEM "Shell B2" RUN NewShell "CON:0/14/640/100/Amiga Shell/AUTO/CLOSE/SCREEN $BrowserIIScreenName"
    ITEM MoveSys RUN MoveSys
    ITEM Execute WBTF SHELL Execute [] ; WaitReturn
    ITEM {B} RunBack RUN RunBack []
    ITEM LoadLib RUN LoadLib [:]
    BARLABEL
    SUBMENU "Assign"
        ITEM "[] ADD" RUN Set Dir []; Assign $Dir: $Dir ADD
        ITEM "Libs: ADD" RUN Assign Libs: [] ADD
        ITEM "Fonts: ADD" RUN Assign Fonts: [] ADD
        BARLABEL
        ITEM "Vol" RUN Set Dir []; Assign $Dir: $Dir
    ENDSUBMENU
    BARLABEL
    ITEM "Own" RUN SRC:MultiUser/C/SetOwner [] ALL
    ITEM "Private" RUN SRC:MultiUser/C/MProtect [] RWD GROUP "" OTHER ""
    BARLABEL
    ITEM "true e" SHELL For #? PosProtect=e Type "~#Impl Exe,~#Exe,~#PP40 Exe,~#PP30 Exe,~#PP Exe,~#PPLoadSeg" Deep=1 SFT ALL Verbose=On DO Protect "%%" -e

MENU "Dev"
    ITEM Free RUN C:Free []
    ITEM DFree WBTF SHELL DFree []
    ITEM DiskChange RUN DiskChange []
    ITEM Install RUN Install []

    SUBMENU QFormat
        # I assume that the CD of browser are correct
        ITEM NFS RUN WIN "CON:0/10/510/54/Format/SCREEN=BrowserII" System/Format DRIVE [] NAME NFS QUICK NOICONS
        ITEM FFS RUN WIN "CON:0/10/510/54/Format FFS" System/Format DRIVE [] NAME FFS QUICK NOICONS FFS
    ENDSUBMENU
    SUBMENU Format
        ITEM "NFS" RUN WIN "CON:0/10/510/54/Format Full NFS" System/Format DRIVE [] NAME NFS NOICONS
        ITEM "FFS" RUN WIN "CON:0/10/510/54/Format Full FFS" System/Format DRIVE [] NAME FFS NOICONS FFS
    ENDSUBMENU
    ITEM "?Format" WB Sys:System/Format []
    ITEM DeadAlloc WBTF SHELL Prg:Utils/DeadAlloc []
    SUBMENU "Info"
        ITEM "Info" WBTF SHELL WIN "CON:0/10/600/150/Dev Info/CLOSE/WAIT" Info DATES
        ITEM "DSD" RUN PRG:Utils/Diskutils/DiskStorageDeluxe
        ITEM "VirusX" WB SYS:VirusX
        ITEM "TrackDisplay" RUN PRG:Utils/DiskUtils/TrackDisplay
    ENDSUBMENU
    ITEM "Lock ON" RUN c:Lock ON []
    ITEM "Lock OFF" RUN c:Lock OFF []

MENU "Pack"
    ITEM {Z} "Extract" WBTF SHELL STACK 8192 WIN "CON:/15//100/Extract..." S:Macro/Extract [];BD RESCAN
    SUBMENU "Zoo"
        ITEM "Add *" WBTF SHELL PRG:Utils/Arc/Zoo/Zoo aP PRG:LHArchive.zoo []*
        ITEM List WBTF SHELL PRG:Utils/Arc/Zoo/Zoo -list []
        ITEM eXctract WBTF SHELL PRG:Utils/Arc/Zoo/Zoo x//
    ENDSUBMENU
    SUBMENU "LHArc"
        ITEM "Set DestDir" WBTF RUN SetEnv LHArcDestDir `RequestFile DRAWER $LHArcDestDir TITLE "Dir destination" DRAWERSONLY NOICONS`    ;this way the Dir was remember and you can quicly select last DestDir
        ITEM {Θ} "Add Dir" WBTF SHELL STACK 8192 WIN "CON:/15//100/LhArc...(dir)" PRI -1 Set DestDir `CD`;For [] SFT FullPathArgs DO Execute S:Macro/LHArcDir "%%" "$DestDir" "#?";BD RESCAN
        ITEM "Add Dir Src" WBTF SHELL STACK 8192 WIN "CON:/15//100/LhArc...(dir src)" PRI -1 Set DestDir `CD`;For [] SFT FullPathArgs DO Execute S:Macro/LHArcDir "%%" "$DestDir" "~(#?.(o|bak|gst|lst|map))";BD RESCAN
#        ITEM "Add Vol" WBTF SHELL Execute S:Macro/LHArcVol [];BD RESCAN
        ITEM "Add Vol" WBTF SHELL $LHArc $LHAOpts a Volume.lha [] *
        ITEM "Add *" WBTF SHELL $LhArc a LHArchive.lzh []*;Say "Compression finished";BD RESCAN
        ITEM "List" WBTF SHELL SHELL WIN "CON:/15/640/200/LhArc...(list)/CLOSE/WAIT" $LhArc $LHAOpts v []
        ITEM "List Full" WBTF SHELL $LhArc $LHAOpts vv []
        ITEM "Test" WBTF SHELL $LhArc $LHAOpts t []
        ITEM "Test *" WBTF SHELL STACK 8192 For []#?.(LHA|LZH) ALL SFT FullPathArgs DO $LhArc $LHAOpts t "%%"
        ITEM SFX WBTF SHELL Set File [];PRG:Utils/Arc/LHArc/LhASFX $File `BaseName $File`;BD RESCAN
        ITEM UnBackUp WBTF SHELL $LhArc $LHAOpts -QvDF0 -Va x [];BD RESCAN
    ENDSUBMENU
    SUBMENU "DMS"
        ITEM "Pack" WBTF SHELL WIN "CON:/15/450/250/DMS Packing.../CLOSE/WAIT" PRI -1 Set Vol [];Set VN `VolName "$Vol"`;CD;PRG:Utils/Arc/DMS <NIL: Read "$VN.DMS" FROM "$Vol" NOVAL DEVFIX CMODE BEST;PRG:Pack/DMS/DMSCheck "$VN.DMS";BD RESCAN
        ITEM "RePack" WBTF SHELL PRI -1 Set N [];PRG:Utils/Arc/DMS Repack "$N" TO "$N.repacked" CMODE BEST;BD RESCAN
        ITEM "Test" WBTF SHELL Set N [];PRG:Utils/Arc/DMS TEST "$N"
        ITEM "Check" WBTF SHELL PRG:Pack/DMS/DMSCheck []
        ITEM "Info" WBTF SHELL PRG:Utils/Arc/DMS VIEW [] FULL
        ITEM "Make SFX" WBTF SHELL PRG:Utils/Arc/DMS SFX [];BD RESCAN
        ITEM "UnPack DF0:" WBTF SHELL PRG:Utils/Arc/DMS Write [] TO DF0: NOPAUSE;DiskChange DF0:;BD SCANDEVS
        ITEM "UnPack DF2:" WBTF SHELL PRG:Utils/Arc/DMS Write <NIL: [] TO DF2: NOPAUSE;DiskChange DF2:;BD SCANDEVS
        ITEM "DM0 []" SHELL Set N [:];PRG:Utils/Arc/DMSDiskChange 0 "$N";Echo "Done";BD SCANDEVS
    ENDSUBMENU
    SUBMENU "PackDev"
        #ITEM "Pack RAKE" WBTF SHELL PRI -1 Set Echo ON;Set Dev [:];Set VN `VolName $Dev`;PRG:FileDisk/PackDev READ FS $Dev FILE $VN PACK=RAKE.100 NOCONFIRM;BD RESCAN
        #ITEM "Pack SHRI" WBTF SHELL PRI -1 Set Vol [];Set VN `VolName $Vol`;PRG:FileDisk/PackDev READ FS $Vol FILE $VN PACK=SHRI.100 NOCONFIRM;BD RESCAN
        #ITEM "Pack FAST" WBTF SHELL PRI -1 Set Vol [];Set VN `VolName $Vol`;PRG:FileDisk/PackDev READ FS $Vol FILE $VN PACK=FAST NOCONFIRM;BD RESCAN
        ITEM "Pack RAKE DF0" WBTF SHELL PRI -1 Set Dev "DF0:";Set VN `VolName $Dev`;PRG:FileDisk/PackDev READ FS $Dev FILE $VN PACK=RAKE.100 NOCONFIRM;BD RESCAN
        ITEM "Pack RAKE DF2" WBTF SHELL PRI -1 Set Dev "DF2:";Set VN `VolName $Dev`;PRG:FileDisk/PackDev READ FS $Dev FILE $VN PACK=RAKE.100 NOCONFIRM;BD RESCAN
        ITEM "Pack SHRI DF0" WBTF SHELL PRI -1 Set Dev "DF0:";Set VN `VolName $Dev`;PRG:FileDisk/PackDev READ FS $Dev FILE $VN PACK=SHRI.100 NOCONFIRM;BD RESCAN
        ITEM "Pack SHRI DF2" WBTF SHELL PRI -1 Set Dev "DF2:";Set VN `VolName $Dev`;PRG:FileDisk/PackDev READ FS $Dev FILE $VN PACK=SHRI.100 NOCONFIRM;BD RESCAN
        ITEM "Pack FAST DF0" WBTF SHELL PRI -1 Set Dev "DF0:";Set VN `VolName $Dev`;PRG:FileDisk/PackDev READ FS $Dev FILE $VN PACK=FAST NOCONFIRM;BD RESCAN
        ITEM "Pack FAST DF2" WBTF SHELL PRI -1 Set Dev "DF2:";Set VN `VolName $Dev`;PRG:FileDisk/PackDev READ FS $Dev FILE $VN PACK=FAST NOCONFIRM;BD RESCAN
        ITEM "UnPack DF0:" WBTF SHELL PRI -1 PRG:FileDisk/PackDev <NIL: WRITE FS DF0: FILE [] NOCONFIRM;BD SCANDEVS
        ITEM "UnPack DF2:" WBTF SHELL PRI -1 PRG:FileDisk/PackDev <NIL: WRITE FS DF2: FILE [] NOCONFIRM;BD SCANDEVS
    ENDSUBMENU

    SUBMENU "Tar"
        ITEM "Add Files" WBTF SHELL Set Echo ON;Set FullName [];Set N `BaseName "$FullName"`;PRG:Utils/GNUTar -v -R -S -b 1000 -c -f "$N.tar" "$FullName";BD RESCAN
        ITEM "Add To DF0" WBTF SHELL Set Name0 [];PRG:Utils/GNUTar +verbose +volume "$Name0" +multi-volume +block-size 15 +record-number +create +file DEV:trackdisk.device/0 "$Name0";Echo "End"
        ITEM "Add To MFM" WBTF SHELL Set Name0 [];PRG:Utils/GNUTar +verbose +volume "$Name0" +multi-volume +block-size 15 +record-number +create +file DEV:mfm.device/0 "$Name0";Echo "End"
#        ITEM "Add Files" WBTF SHELL Set FullName [];Set Name0 `BaseName $FullName`;echo $Name0;PRG:Utils/GNUTar -f "$Name0.tar" -cv $FullName;BD RESCAN
#ok>PRG:Utils/GNUTar -M -R -B -v +sparse +volume tartry -b 15 -c -f DEV:mfm.device/0 t
        ITEM "Extract" WBTF SHELL PRG:Utils/GNUTar -v -R -b 1000 -x -f [];BD RESCAN
        ITEM "Extract From DF0" WBTF SHELL PRG:Utils/GNUTar -v -M -R -b 15 -x -f DEV:trackdisk.device/0;;Echo "End";BD RESCAN
        ITEM "Extract From MFM" WBTF SHELL PRG:Utils/GNUTar -v -M -R -b 15 -x -f DEV:mfm.device/0 +preserve-permissions;;Echo "End";BD RESCAN
        ITEM "List" WBTF SHELL PRG:Utils/GNUTar -v -R -b 1000 -t -f [];Echo "End"
        ITEM "List .tgz" WBTF SHELL Set Echo ON;Set PipeFile TGZ.$process;RUN PRG:Utils/GZip >PIPE:$PipeFile -c -d [];PRG:Utils/GNUTar -v -R -b 1000 -t -f PIPE:PipeFile;Echo "End"
        ITEM "List MFM" WBTF SHELL PRG:Utils/GNUTar -v -M -R -b 30 -t -f DEV:mfm.device/0;Echo "End"
        BARLABEL
    ENDSUBMENU
    SUBMENU "GZip
        ITEM "Pack" WBTF SHELL PRI -1 STACK 20000 PRG:Utils/GZip --verbose --recursive -9 [];BD RESCAN
        ITEM "UnPack" SHELL PRI -1 STACK 20000 PRG:Utils/GZip --verbose --recursive --decompress [];BD RESCAN
        ITEM "List" WBTF SHELL STACK 20000 PRG:Utils/GZip --verbose --list []
    ENDSUBMENU
    SUBMENU "xPK"
        ITEM "xPack TO .xPK NUKE" WBTF SHELL PRI -1 PRG:Pack/xPK/xPack [] METHOD NUKE.100 MINSIZE 1024 SUFFIX .xPK ALL;BD RESCAN
        ITEM "xPack TO .xPK RAKE" WBTF SHELL PRI -1 PRG:Pack/xPK/xPack [] METHOD RAKE.100 MINSIZE 1024 SUFFIX .xPK ALL;BD RESCAN
#        ITEM "xPack TO .xPK RAKE" WBTF SHELL PRI -1 Set N [];PRG:Pack/xPK/xPackIt "$N" "$N.xPK" METHOD RAKE Efficiency 100;BD RESCAN
        ITEM "xPack TO .xPK SQSH" WBTF SHELL PRI -1 PRG:Pack/xPK/xPack [] METHOD SQSH.100 MINSIZE 1024 SUFFIX .xPK ALL;BD RESCAN
        ITEM "xPack TO .xPK SHRI" WBTF SHELL PRI -1 PRG:Pack/xPK/xPack [] METHOD SHRI.100 MINSIZE 1024 SUFFIX .xPK ALL;BD RESCAN
        ITEM "xPack Un" WBTF SHELL PRG:Pack/xPK/xPackIt [] "`Cd`" UnPack;BD RESCAN
        BARLABEL
        ITEM "xDir" WBTF SHELL WIN "CON:/15//600/xDir.../CLOSE/WAIT" PRG:Pack/xPK/xDir []
        ITEM "xLoadSeg" RUN PRG:Pack/xPK/xLoadSeg
        ITEM "xQuery" SHELL WIN "CON:/15//600/x Packer:/CLOSE/WAIT" PRG:Pack/xPK/xQuery
        ITEM "xDrop" WB PRG:Pack/xPK/xDrop
    ENDSUBMENU
    SUBMENU "xFD"
        ITEM "SetUp" RUN Assign Libs: PRG:Pack/Xfd/Libs ADD
        ITEM "Decrunch" WBTF SHELL PRI -1 PRG:Pack/Xfd/xfdDecrunch []
        ITEM "List" WBTF SHELL PRG:Pack/Xfd/xfdList
    ENDSUBMENU
    ITEM UnZip WBTF SHELL PRG:Utils/UnZip [] -d "`CD`";BD RESCAN
    SUBMENU "LZX"
        ITEM "Add" SHELL PRI -1 Set Echo on;Set N [];Set BN `BaseName "$N"`;Set DestDir `Cd`;Cd "$N";Cd /; PRG:Pack/Arc/lzx -a -e -k -r -y95 -3 a `Tackon "$DestDir" $BN` $BN;CD $DestDir;BD RESCAN
        ITEM "Extract" SHELL PRI -1 PRG:Pack/Arc/lzx -a -e -k -r -y95 -3 x [] *
        ITEM "List" SHELL PRI -1  PRG:Pack/Arc/lzx -a -e -k -r -y95 -3 l []
    ENDSUBMENU
    ITEM "To ADCPM3" SHELL PRI -1 Set Echo ON;Set N [];Set BN `BaseName "$N"`; PRG:Sound/X2ADPCM FROM "$N" TO "$BN.ADPCM3" BITS=3;BD RESCAN

MENU "BrowserDir"
    ITEM ":.DelDir" RUN BD :.DelDir
    ITEM "LastDir" RUN BD <Env:TheDir >NIL: ?
    ITEM "PRG:TT" RUN BD PRG:TT
    ITEM "PRG:Fish" RUN BD PRG:Fish
    ITEM "Utilities" RUN BD Sys:Utilities
    ITEM "DF0: DF1:" RUN BD DF0: DF1:
    ITEM ":Trashcan" RUN BD :Trashcan
    ITEM "Mod" RUN BD Vrack:Sound/Music/Mod/
    ITEM "CD0:Aminet Mod" RUN BD CD0:Aminet/Mods/
    ITEM "Imagine" RUN BD PRG:Pix/Imagine/
    ITEM "Pictures" RUN BD Pack:Pictures/
    ITEM "Games" RUN BD Vrack:Games/
    ITEM "Aminet" RUN BD Vrack:Arc/Aminet/
    ITEM "CD0:Aminet" RUN BD CD0:Aminet/

MENU "C"
    ITEM "AutoDocs" RUN BD Vrack:AutoDocs
    ITEM "Indent" WBTF SHELL GOD:Indent -bap -bad -bl -bli0 -nce -cli0 -ss -npcs -npsl -bs -di1 -nbc -i8 -ci8 -lp -ts8 -ip8 -lps -ncs -nfca -v []
#    ITEM "Indent" WBTF SHELL GOD:Indent -bap -bad -bl -bli8 -nce -cli8 -ss -npcs -npsl -bs -di1 -nbc -i8 -ci8 -lp -ts8 -ip8 -lps -ncs -nfca -v []
    ITEM "MakeInfo" WBTF SHELL GOD:MakeInfo --amiga []
    ITEM "KSDoc" RUN BD  Vrack:Info/Devloppement/AutoDocs
    ITEM "Diff" WBTF SHELL Diff -b32 -w []
    ITEM "guru" RUN BD RAM:DontExist

    ITEM "b" RUN PRI 1 NewShell

MENU "Misc"
    ITEM "Link Aminet4" RUN Set N []; Echo >>"$N-Aminet4" "Aminet4, " "`list "$N" LFORMAT "%s %l %b %a %d %t %l"`";Delete "$N"
    ITEM "Link Aminet5" RUN Set N []; Echo >>"$N-Aminet5" "Aminet5, " "`list "$N" LFORMAT "%s %l %b %a %d %t %l"`";Delete "$N"
    ITEM "Link Aminet6" RUN Set N []; Echo >>"$N-Aminet6" "Aminet6, " "`list "$N" LFORMAT "%s %l %b %a %d %t %l"`";Delete "$N"
    ITEM "Link AminetU" RUN Set N []; Echo >>"$N-AminetU" "AminetU, " "`list "$N" LFORMAT "%s %l %b %a %d %t %l"`";Delete "$N"
    ITEM "Link AminetF" RUN Set N []; Echo >>"$N-AminetF" "AminetF, " "`list "$N" LFORMAT "%s %l %b %a %d %t %l"`";Delete "$N"
    ITEM "Link VBSArc1" RUN Set N []; Echo >>"$N-VBSArc1" "VBSArc1 NDP, " "`list "$N" LFORMAT "%s %l %b %a %d %t %l"`";Delete "$N"
    ITEM "Link VBSArc2" RUN Set N []; Echo >>"$N-VBSArc2" "VBSArc2 NDP, " "`list "$N" LFORMAT "%s %l %b %a %d %t %l"`";Delete "$N"